home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / disk / misc / catch100.lha / CatchDisk / English / Install < prev    next >
Encoding:
Text File  |  1993-10-17  |  2.2 KB  |  105 lines
  1. ; Installation program for the Commodore's Installer utility
  2.  
  3. (set local-help (cat "If you choose \"Yes\" you can have CatchDisk send its"
  4.                      " messages in italian.\nIf you choose \"No\", CatchDisk will"
  5.                      " only run in english.\nNote that if your system language"
  6.                      " is not set to 'italiano' you will still see all the "
  7.                      "messages in english"))
  8.  
  9. (complete 0)
  10.  
  11. (if (exists "L:WBStart-Handler")
  12.     ((set ver (/ (getversion "L:WBStart-Handler") 65536))
  13.      (set rev (- (getversion "L:WBStart-Handler") (* 65536 ver)))
  14.      (if (< ver 2)
  15.          (if (< rev 4)
  16.              (message (cat "Warning: you must install WBStart-Handler "
  17.                         "version 1.4 or later to be able to use "
  18.                         "CatchDisk (see the 'Readme' file).")
  19.              )
  20.          )
  21.      )
  22.     )
  23.     (message (cat "Warning: you must install WBStart-Handler "
  24.                   "version 1.4 or later to be able to use "
  25.                   "CatchDisk (see the 'Readme' file).")
  26.     )
  27. )
  28.  
  29. (set name
  30.     (askdir
  31.         (prompt "Where do you want to install CatchDisk ?")
  32.         (help @askdir-help)
  33.         (default "SYS:WBStartup")
  34.     )
  35. )
  36.  
  37. (set @default-dest name)
  38.  
  39. (set vernum (/ (getversion) 65536))   ; se version >37: c'รจ localizzazione
  40.  
  41. (if (> vernum 37)
  42.     (set local
  43.         (askbool
  44.             (prompt "Do you want to install the support file for the italian language ?")
  45.             (help local-help)
  46.             (default 0)
  47.         )
  48.     )
  49.     (set local 0)
  50. )
  51.  
  52. (if local
  53.     (if (and (= @user-level 2) (exists "LOCALE:catalogs/italiano"))
  54.         (set sysdest
  55.             (askchoice
  56.                 (prompt "Where do you want to install the localization file ?")
  57.                 (help @askchoice-help)
  58.                 (choices "in the same drawer as CatchDisk" "in LOCALE:")
  59.                 (default 1)
  60.             )
  61.         )
  62.         (if (= name "SYS:WBStartup")
  63.             (set sysdest 1)
  64.             (set sysdest 0)
  65.         )
  66.     )
  67. )
  68.  
  69. (if (not (exists "LOCALE:catalogs/italiano"))
  70.     (set sysdest 0)
  71. )
  72.  
  73. (complete 50)
  74.  
  75. (copyfiles
  76.     (infos)
  77.     (source "/CatchDisk")
  78.     (dest name)
  79. )
  80.  
  81. (tooltype
  82.     (dest (tackon name "CatchDisk"))
  83.     (noposition)
  84. )
  85.  
  86. (complete 80)
  87.  
  88. (if local
  89.      (if sysdest
  90.         (copyfiles
  91.             (source "/catalogs/italiano/CatchDisk.catalog")
  92.             (dest "LOCALE:catalogs/italiano")
  93.         )
  94.         (
  95.             (makedir (tackon name "catalogs"))
  96.             (copyfiles
  97.                 (source "/catalogs/italiano/CatchDisk.catalog")
  98.                 (dest (tackon name "catalogs/italiano"))
  99.             )
  100.         )
  101.     )
  102. )
  103.  
  104. (complete 100)
  105.